﻿Imports System.Data.OleDb
Public Class frmNewAuditado
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        frm_empresa.ShowDialog()
    End Sub

    Private Sub frmNewAuditado_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CargarEmpresas(cbo_empr)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If (txtnomAudo.Text = "") Or (txtapeAudo.Text = "") Or (cbo_empr.Text = "Seleccionar...") Then
            MsgBox("Complete Los campos", MsgBoxStyle.Critical, "ERROR!")
        Else
            Dim newAuditado As New C_agregarDatos
            Dim nomap As String
            titulo(grbdatosEmpr)
            nomap = txtnomAudo.Text + " " + txtapeAudo.Text
            newAuditado.nuevoAuditado(nomap)
            frmEdicionAtencion.cbo_auditado.Items.Clear()
            ' CargarAuditados(frm_inicio.cbo_auditado)
            Limpiar(grbdatosEmpr)
            Limpiar(frmEdicionAtencion.Gb_01)
            Close()
        End If
    End Sub
End Class